home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MACD 5
/
MACD 5.bin
/
polski_aminet
/
blabla
/
bed_defs¯os
/
rexx
/
file_startup.bed
Wrap
Text File
|
1997-02-02
|
982b
|
54 lines
/*
** $VER: File_Startup.bed 1.02 (21.01.97)
**
** by Marco Negri with small modifications by Karol Bryd
**
** ARexx Macro executed at the opening of a file of Blacks Editor
*/
OPTIONS RESULTS
GetFileInfo
PARSE VAR RESULT . . '"'name'"'
IF NAME ~= "" THEN DO
dotpos = LASTPOS('.', name)
IF dotpos = 0 THEN
ext = ""
ELSE
ext = SUBSTR(name, dotpos+1)
END
SELECT
/*
** You can insert here how many extensions you want:
**
** For example:
**
** WHEN (ext = 'asm') | (ext = 's') | (ext = 'a') THEN DO
** OpenPrefs "BED:Support/Assembler.prf"
** OpenDefinitions "BED:Support/Assembler.dfn"
** END
**
*/
WHEN (ext = 'c') | (ext = 'h') THEN DO
OpenPrefs "BED:Support/Startup.prf"
OpenDefinitions "BED:Support/Startup.dfn"
END
WHEN (ext = 'e') THEN DO
OpenPrefs "BED:Support/StartupE.prf"
OpenDefinitions "BED:Support/StartupE.dfn"
END
OTHERWISE DO
OpenPrefs "BED:Support/Startup.prf"
OpenDefinitions "BED:Support/Startup.dfn"
END
END
END